home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axtree / clsitem.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-01-13  |  5.2 KB  |  190 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsItem"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. 'local variable(s) to hold property value(s)
  13. Private mvarBitmap As Picture 'local copy
  14. Private mvarBookmark As Variant 'local copy
  15. Private mvarCaption As String 'local copy
  16. Private mvarExpanded As Integer 'local copy
  17. Private mvarIsParent As Boolean 'local copy
  18. Private mvarItemData As Long 'local copy
  19. Private mvarLevel As Integer 'local copy
  20. Private mvarSelected As Integer 'local copy
  21. Private mvarSyncIdx As Integer 'local copy
  22. Private mvarVisible As Integer 'local copy
  23. Private mvarVisibleIdx As Long 'local copy
  24. Public Property Let VisibleIdx(ByVal vData As Long)
  25. 'used when assigning a value to the property, on the left side of an assignment.
  26. 'Syntax: X.VisibleIdx = 5
  27.     mvarVisibleIdx = vData
  28. End Property
  29.  
  30.  
  31. Public Property Get VisibleIdx() As Long
  32. 'used when retrieving value of a property, on the right side of an assignment.
  33. 'Syntax: Debug.Print X.VisibleIdx
  34.     VisibleIdx = mvarVisibleIdx
  35. End Property
  36.  
  37.  
  38.  
  39. Public Property Let Visible(ByVal vData As Integer)
  40. 'used when assigning a value to the property, on the left side of an assignment.
  41. 'Syntax: X.Visible = 5
  42.     mvarVisible = vData
  43. End Property
  44.  
  45.  
  46. Public Property Get Visible() As Integer
  47. 'used when retrieving value of a property, on the right side of an assignment.
  48. 'Syntax: Debug.Print X.Visible
  49.     Visible = mvarVisible
  50. End Property
  51.  
  52.  
  53.  
  54. Public Property Let SyncIdx(ByVal vData As Integer)
  55. 'used when assigning a value to the property, on the left side of an assignment.
  56. 'Syntax: X.SyncIdx = 5
  57.     mvarSyncIdx = vData
  58. End Property
  59.  
  60.  
  61. Public Property Get SyncIdx() As Integer
  62. 'used when retrieving value of a property, on the right side of an assignment.
  63. 'Syntax: Debug.Print X.SyncIdx
  64.     SyncIdx = mvarSyncIdx
  65. End Property
  66.  
  67.  
  68.  
  69. Public Property Let Selected(ByVal vData As Integer)
  70. 'used when assigning a value to the property, on the left side of an assignment.
  71. 'Syntax: X.Selected = 5
  72.     mvarSelected = vData
  73. End Property
  74.  
  75.  
  76. Public Property Get Selected() As Integer
  77. 'used when retrieving value of a property, on the right side of an assignment.
  78. 'Syntax: Debug.Print X.Selected
  79.     Selected = mvarSelected
  80. End Property
  81.  
  82.  
  83.  
  84. Public Property Let Level(ByVal vData As Integer)
  85. 'used when assigning a value to the property, on the left side of an assignment.
  86. 'Syntax: X.Level = 5
  87.     mvarLevel = vData
  88. End Property
  89.  
  90.  
  91. Public Property Get Level() As Integer
  92. 'used when retrieving value of a property, on the right side of an assignment.
  93. 'Syntax: Debug.Print X.Level
  94.     Level = mvarLevel
  95. End Property
  96.  
  97.  
  98.  
  99. Public Property Let Itemdata(ByVal vData As Long)
  100. 'used when assigning a value to the property, on the left side of an assignment.
  101. 'Syntax: X.ItemData = 5
  102.     mvarItemData = vData
  103. End Property
  104.  
  105.  
  106. Public Property Get Itemdata() As Long
  107. 'used when retrieving value of a property, on the right side of an assignment.
  108. 'Syntax: Debug.Print X.ItemData
  109.     Itemdata = mvarItemData
  110. End Property
  111.  
  112.  
  113.  
  114. Public Property Let IsParent(ByVal vData As Boolean)
  115. 'used when assigning a value to the property, on the left side of an assignment.
  116. 'Syntax: X.IsParent = 5
  117.     mvarIsParent = vData
  118. End Property
  119.  
  120.  
  121. Public Property Get IsParent() As Boolean
  122. 'used when retrieving value of a property, on the right side of an assignment.
  123. 'Syntax: Debug.Print X.IsParent
  124.     IsParent = mvarIsParent
  125. End Property
  126.  
  127.  
  128.  
  129. Public Property Let Expanded(ByVal vData As Integer)
  130. 'used when assigning a value to the property, on the left side of an assignment.
  131. 'Syntax: X.Expanded = 5
  132.     mvarExpanded = vData
  133. End Property
  134.  
  135.  
  136. Public Property Get Expanded() As Integer
  137. 'used when retrieving value of a property, on the right side of an assignment.
  138. 'Syntax: Debug.Print X.Expanded
  139.     Expanded = mvarExpanded
  140. End Property
  141.  
  142.  
  143.  
  144. Public Property Let Caption(ByVal vData As String)
  145. 'used when assigning a value to the property, on the left side of an assignment.
  146. 'Syntax: X.Caption = 5
  147.     mvarCaption = vData
  148. End Property
  149.  
  150.  
  151. Public Property Get Caption() As String
  152. Attribute Caption.VB_UserMemId = 0
  153. 'used when retrieving value of a property, on the right side of an assignment.
  154. 'Syntax: Debug.Print X.Caption
  155.     Caption = mvarCaption
  156. End Property
  157.  
  158.  
  159.  
  160. Public Property Let Bookmark(ByVal vData As Variant)
  161. 'used when assigning a value to the property, on the left side of an assignment.
  162. 'Syntax: X.Bookmark = 5
  163.     mvarBookmark = vData
  164. End Property
  165.  
  166.  
  167. Public Property Get Bookmark() As Variant
  168. 'used when retrieving value of a property, on the right side of an assignment.
  169. 'Syntax: Debug.Print X.Bookmark
  170.     Bookmark = mvarBookmark
  171. End Property
  172.  
  173.  
  174.  
  175. Public Property Let Bitmap(ByVal vData As Picture)
  176. 'used when assigning a value to the property, on the left side of an assignment.
  177. 'Syntax: X.Bitmap = 5
  178.     Set mvarBitmap = vData
  179. End Property
  180.  
  181.  
  182. Public Property Get Bitmap() As Picture
  183. 'used when retrieving value of a property, on the right side of an assignment.
  184. 'Syntax: Debug.Print X.Bitmap
  185.     Set Bitmap = mvarBitmap
  186. End Property
  187.  
  188.  
  189.  
  190.